* lisp/files.el (cd): Improve error message.

diff --git a/lisp/files.el b/lisp/files.el
index e5fa1d8b2243d7b72460ffed3e7ed8bd104ce4bf..2868be77f28ff99dfd6c832b981f6167ad48ec3b 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -823,7 +823,9 @@ The path separator is colon in GNU and GNU-like systems."
          (expand-file-name dir))
     (locate-file dir cd-path nil
                  (lambda (f) (and (file-directory-p f) 'dir-ok)))
-    (error "No such directory found via CDPATH environment variable"))))
+    (if (getenv "CDPATH")
+        (error "No such directory found via CDPATH environment variable: %s" dir)
+      (error "No such directory: %s" dir)))))
 
 (defun directory-files-recursively (dir regexp
                                         &optional include-directories predicate